home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / IntUtilities (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  6.1 KB  |  163 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. MODULE MacIntUtilities;
  21. (* cp 
  22.     IMPORT SYSTEM, MacTypes;
  23.     CONST
  24.         currSymLead* = 16;
  25.         currNegSym* = 32;
  26.         currTrailingZ* = 64;
  27.         currLeadingZ* = 128;
  28.         mdy* = 0;
  29.         dmy* = 1;
  30.         ymd* = 2;
  31.         dayLdingZ* = 32;
  32.         mntLdingZ* = 64;
  33.         century* = 128;
  34.         secLeadingZ* = 32;
  35.         minLeadingZ* = 64;
  36.         hrLeadingZ* = 128;
  37.         shortDate* = 0; longDate* = 1; abbrevDate* = 2;
  38.         HANDLE = 2;
  39.         UNTAGGED = 1;
  40.         CODE = 1; NOSTKCHK = 4;
  41.     TYPE
  42.         Intl0Rec* = RECORD (MacTypes.Data)
  43.             decimalPt*: CHAR;
  44.             thousSep*: CHAR;
  45.             listSep*: CHAR;
  46.             currSym1*: CHAR;
  47.             currSym2*: CHAR;
  48.             currSym3*: CHAR;
  49.             currFmt*: MacTypes.PackedByte;
  50.             dateOrder*: MacTypes.PackedByte;
  51.             shrtDateFmt*: MacTypes.PackedByte;
  52.             dateSep*: CHAR;
  53.             timeCycle*: MacTypes.PackedByte;
  54.             timeFmt*: MacTypes.PackedByte;
  55.             mornStr*,
  56.             eveStr*: ARRAY [UNTAGGED] 4 OF CHAR;
  57.             timeSep*: CHAR;
  58.             time1Suff*: CHAR;
  59.             time2Suff*: CHAR;
  60.             time3Suff*: CHAR;
  61.             time4Suff*: CHAR;
  62.             time5Suff*: CHAR;
  63.             time6Suff*: CHAR;
  64.             time7Suff*: CHAR;
  65.             time8Suff*: CHAR;
  66.             metricSys*: MacTypes.PackedByte;
  67.             intl0Vers*: INTEGER
  68.         END;
  69.         Intl0Ptr* = POINTER TO Intl0Rec;
  70.         Intl0Hndl* = POINTER [HANDLE] TO Intl0Rec;
  71.         Intl1Rec* = RECORD (MacTypes.Data)
  72.             days*: ARRAY [UNTAGGED] 7 OF MacTypes.Str15;
  73.             months*: ARRAY [UNTAGGED] 12 OF MacTypes.Str15;
  74.             suppressDay*: MacTypes.PackedByte;
  75.             lngDateFmt*: MacTypes.PackedByte;
  76.             dayLeading0*: MacTypes.PackedByte;
  77.             abbrLen*: MacTypes.PackedByte;
  78.             st0*,
  79.             st1*,
  80.             st2*,
  81.             st3*,
  82.             st4*: ARRAY [UNTAGGED] 4 OF CHAR;
  83.             intl1Vers*: INTEGER;
  84.             localRtn*: INTEGER
  85.         END;
  86.         Intl1Ptr* = POINTER TO Intl1Rec;
  87.         Intl1Hndl* = POINTER [HANDLE] TO Intl1Rec;
  88.         DateForm* = MacTypes.Enum;
  89.     (* Auxiliary Procedures *)
  90.     PROCEDURE [CODE] iuDateString (dateTime: LONGINT; form: DateForm;
  91.                             VAR result: MacTypes.Str255; n: INTEGER) 0A9H, 0EDH;
  92.     PROCEDURE [CODE] iuDatePString (dateTime: LONGINT; form: DateForm;
  93.                             VAR result: MacTypes.Str255; intlParam: MacTypes.Handle; n: INTEGER) 0A9H, 0EDH;
  94.     PROCEDURE [CODE] iuTimeString (dateTime: LONGINT; wantSeconds: BOOLEAN;
  95.                             VAR result: MacTypes.Str255; n: INTEGER) 0A9H, 0EDH;
  96.     PROCEDURE [CODE] iuMetric (n: INTEGER): BOOLEAN 0A9H, 0EDH;
  97.     PROCEDURE [CODE] iuGetIntl (theID: INTEGER; n: INTEGER): MacTypes.Handle 0A9H, 0EDH;
  98.     PROCEDURE [CODE] iuSetIntl (refNum: INTEGER; theID: INTEGER;
  99.                             intlParam: MacTypes.Handle; n: INTEGER) 0A9H, 0EDH;
  100.     PROCEDURE [CODE] iuCompString (aStr, bStr: MacTypes.Str255; n: INTEGER): INTEGER 0A9H, 0EDH;
  101.     PROCEDURE [CODE] iuMagString (aPtr, bPtr: MacTypes.Ptr; aLen, bLen: INTEGER;
  102.                             n: INTEGER): INTEGER 0A9H, 0EDH;
  103.     PROCEDURE [CODE] iuMagIDString (aPtr, bPtr: MacTypes.Ptr;
  104.                             aLen, bLen: INTEGER; n: INTEGER): INTEGER 0A9H, 0EDH;
  105.     (* Main Procedures *)
  106.     PROCEDURE [NOSTKCHK] IUDateString* (dateTime: LONGINT; form: DateForm; VAR result: MacTypes.Str255);
  107.     BEGIN
  108.         iuDateString(dateTime, form, result, 0)
  109.     END IUDateString;
  110.     PROCEDURE [NOSTKCHK] IUDatePString* (dateTime: LONGINT; form: DateForm;
  111.                         VAR result: MacTypes.Str255; intlParam: MacTypes.Handle);
  112.     BEGIN
  113.         iuDatePString(dateTime, form, result, intlParam, 14)
  114.     END IUDatePString;
  115.     PROCEDURE [NOSTKCHK] IUTimeString* (dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: MacTypes.Str255);
  116.     BEGIN
  117.         iuTimeString(dateTime, wantSeconds, result, 2)
  118.     END IUTimeString;
  119.     PROCEDURE [NOSTKCHK] IUMetric* (): BOOLEAN;
  120.     BEGIN
  121.         RETURN iuMetric(4)
  122.     END IUMetric;
  123.     PROCEDURE [NOSTKCHK] IUGetIntl* (theID: INTEGER): MacTypes.Handle;
  124.     BEGIN
  125.         RETURN iuGetIntl(theID, 6)
  126.     END IUGetIntl;
  127.     PROCEDURE [NOSTKCHK] IUSetIntl* (refNum: INTEGER; theID: INTEGER; intlParam: MacTypes.Handle);
  128.     BEGIN
  129.         iuSetIntl(refNum, theID, intlParam, 8)
  130.     END IUSetIntl;
  131.     PROCEDURE [NOSTKCHK] IUMagString* (aPtr, bPtr: MacTypes.Ptr; aLen, bLen: INTEGER): INTEGER;
  132.     BEGIN
  133.         RETURN iuMagString(aPtr, bPtr, aLen, bLen, 10)
  134.     END IUMagString;
  135.     PROCEDURE [NOSTKCHK] IUCompString* (VAR aStr, bStr: MacTypes.Str255): INTEGER;
  136.     BEGIN
  137.         RETURN iuMagString(SYSTEM.VAL(MacTypes.Ptr, SYSTEM.ADR(aStr[1])),
  138.                                 SYSTEM.VAL(MacTypes.Ptr, SYSTEM.ADR(bStr[1])),
  139.                                 ORD(aStr[0]), ORD(bStr[0]), 10)
  140.     END IUCompString;
  141.     PROCEDURE [NOSTKCHK] IUMagIDString* (aPtr, bPtr: MacTypes.Ptr; aLen, bLen: INTEGER): INTEGER;
  142.     BEGIN
  143.         RETURN iuMagIDString(aPtr, bPtr, aLen, bLen, 12)
  144.     END IUMagIDString;
  145.     PROCEDURE [NOSTKCHK] IUEqualString (VAR aStr, bStr: MacTypes.Str255): INTEGER;
  146.     BEGIN
  147.         RETURN iuMagIDString(SYSTEM.VAL(MacTypes.Ptr, SYSTEM.ADR(aStr[1])),
  148.                                     SYSTEM.VAL(MacTypes.Ptr, SYSTEM.ADR(bStr[1])),
  149.                                     ORD(aStr[0]), ORD(bStr[0]), 12)
  150.     END IUEqualString;
  151. END MacIntUtilities.
  152. TextControllers.StdCtrlDesc
  153. TextControllers.ControllerDesc
  154. Containers.ControllerDesc
  155. Controllers.ControllerDesc
  156. TextRulers.StdRulerDesc
  157. TextRulers.RulerDesc
  158. TextRulers.StdStyleDesc
  159. TextRulers.StyleDesc
  160. TextRulers.AttributesDesc
  161. Geneva
  162. Documents.ControllerDesc
  163.